home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_166_Choose Title < prev    next >
Text File  |  1998-02-04  |  15KB  |  97 lines

  1. ItemType: WIND
  2. Rect: 326,237,698,531
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Choose Title
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global titleList, selectedTitleNum¬global gWindowPositions, gListStartPos¬global gShowOnlyMyTitles, gMyTitleList, gCurrentPaneList¬¬---------------------¬-- This is window #22¬---------------------¬¬if objValue="Open" then ¬  set cursor to watch¬  if the short name of this background <> "Title" then ¬    lock screen¬    go cd 1 of bg "Title"¬  end if¬  ¬  -- Restore old window position¬  put OldWindowPosition(22) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else wsSet wdID,"0","Rect",windowRect¬  ¬  -- Figure out which selection to start with¬  wsSet wdID,"11","Hilite",gShowOnlyMyTitles¬  wsSet wdID,"10","Hilite", not (gShowOnlyMyTitles)¬  ¬  put line selectedTitleNum of titleList into theTitle¬  ¬  put Capitalize(char 1 of (line selectedTitleNum of titleList)) into firstChar¬  if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬  else put 1 into alphaSelectPos¬  wsSet wdID,"alphaStrip","Selection", (alphaSelectPos & ",1")¬  ¬  if gShowOnlyMyTitles = true then¬    SetNewList gMyTitleList, alphaSelectPos, wdID, false¬    put find(gCurrentPaneList, theTitle, "Line", "Exact") into foundPos¬    if foundPos < 1 and the number of lines of gCurrentPaneList > 0 then put 1 into foundPos¬    wsSet wdID,"0","Properties","Comictitles_Selection:" & (foundPos) & return & "OK…_Disabled:" & (theTitle = empty) & return¬  else¬    SetNewList TitleList, alphaSelectPos, wdID, false¬    wsSet wdID,0,"Properties","Comictitles_Selection:" & (selectedTitleNum - (wsGet(wdID,0,xlistStartPos)) + 1) & return & "OK…_Disabled:" & (theTitle = empty) & return¬  end if¬  ¬  wsSet wdID,"typedTitle","text",(line selectedTitleNum of titleList)¬  wsSet wdID,"typedTitle","Selection","0,200"¬  ¬  set cursor to arrow¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "22" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 22 of gWindowPositions¬  ¬end if¬¬--end windowEvent
  9. Params: i8_Text¬i3_Selection¬i3_Logic
  10. Result: i3_SelectionText
  11.  
  12. ItemType: PUSH
  13. Rect: 285,265,357,285
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17. Balloon: Click here to choose the selected titles.
  18. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global SelectedTitleNums, gMyTitleIndex, gShowOnlyMyTitles¬global gListStartPos, titleList, selectedTitleNum¬¬set cursor to watch¬if gShowOnlyMyTitles then¬  put find (titleList, wsGet(wdID,"ComicTitles","TextOfSelection"),"Line","Exact") into SelectedTitleNums¬else¬  put wsGet(wdID,"ComicTitles","Selection")  + ((wsGet(wdID,0,"xListStartPos")) - 1) into SelectedTitleNums¬end if¬--end mouseUp¬¬
  19.  
  20. ItemType: PUSH
  21. Rect: 199,265,271,285
  22. AutoSize: FALSE
  23. Name: Cancel
  24. CancelItem: TRUE
  25. AutoClose: TRUE
  26. Balloon: Click here to exit without choosing any titles.
  27.  
  28. ItemType: LIST
  29. Rect: 10,54,361,225
  30. TextFont: Geneva
  31. TextSize: 10
  32. Name: ComicTitles
  33. Logic: Single
  34. DoubleClickItem: 1
  35. Text: Sable¬Sable (Mike Grell’s…)¬Sabre¬Sabretooth¬Sachs & Violens¬Safest Place in the World, The¬Saga of Crystar, the Crystal Warrior¬Saga of the Original Human Torch¬Saga of the Sub-Mariner¬Saga of the Swamp Thing, The¬Saint Sinner¬Sam Slade, Robo-Hunter¬Samurai¬Samurai Cat¬Samurai: Demon Sword¬Sanctuary Part 2¬Sanctuary Part 4¬San Diego Comic-Con Comics¬Sandman¬Sandman Mystery Theatre¬Sandman, The¬Santana¬Satan Place¬Satan’s Planet (A Day In Life On…)¬Satan’s Six¬Satan’s Six: Hellspawn¬Savage Combat Tales¬Savage Dragon, The¬Savage Dragon, The (Mini-Series)¬Savage Dragon Vs. The Savage Megaton Man, The¬Savage Henry: Headstrong¬Savage Return of Dracula, The¬Savage She-Hulk, The¬Savage Sword of Conan¬Savage Tales (2nd Series)¬Scamp (Walt Disney…)¬Scarab¬Scaramouch¬Scarlet in Gaslight¬Scarlet Spider Unlimited¬Scarlett¬Scarlet Witch¬Scary Tales¬SCC Convention Special¬Scimidar¬Score, The¬Scorpion Corps¬Scorpion, The¬Scorpio Rose¬Screen Monsters¬Screwball Squirrel¬Scud: The Disposable Assassin¬Sea Devils¬SeaQuest¬Sebastian O¬Sebastian (Walt Disney’s…)¬Second City¬Second Life of Doctor Mirage, The¬Secret City Saga (Jack Kirby’s…)¬Secret Defenders¬Secret Origins (1st Series)¬Secret Origins (2nd Series)¬Secret Society of Super-Villains¬Secrets of Haunted House¬Secrets of the Legion of Super-Heroes¬Secrets of the Valiant Universe¬Secret Wars II¬Secret Weapons¬Sectaurs¬Seduction¬Seduction of the Innocent¬Seduction of the Innocent (Eclipse)¬Seekers Into the Mystery¬Seeker: Vengeance¬Semper Fi¬Sensational She-Hulk, The¬Sensational Spider-Man ’96¬Sensational Spider-Man in Nothing Can Stop the Juggernaut, The¬Sensational Spider-Man, The¬Sensei¬Sentinel¬Seraphim¬Seven Block¬Sewage Dragoon, The¬Sex & Death¬Sex, Lies and Mutual Funds of the Yuppies From Hell¬Sex Warrior¬Sgt. Fury¬Sgt. Rock¬Shades of Gray Comics and Stories¬Shade, the Changing Man (1st Series)¬Shade, the Changing Man (2nd Series)¬Shado: Song of the Dragon¬Shadowalker Chronicles, The¬Shadow and Doc Savage, The¬Shadow Cabinet¬Shadow Empires: Faith Conquers¬ShadowHawk Gallery¬ShadowHawk (Vol. 1)¬ShadowHawk (Vol. 2)¬ShadowHawk (Vol. 3)¬Shadowman¬Shadowmasters¬Shadow of the Torturer, The (Gene Wolfe’s…)¬Shadow Raven¬Shadow Riders¬Shadows Fall¬Shadow State¬Shadow Strikes!, The¬Shadow, The (1st Series)¬Shadow, The (2nd Series)¬Shadow, The (3rd Series)¬Shadow, The (4th Series)¬Shadow, The: Hell’s Heat Wave¬Shadow, The: In the Coils of Leviathan¬Shadow, The (Movie Adaptation)¬Shadow War of Hawkman, The¬Shaman’s Tears¬Shanda the Panda¬Shanna the She-Devil¬Shaolin¬Shatter (1st Series)¬Shatter (2nd Series)¬Shazam!¬Shazam: The New Beginning¬She-Cat¬Sheila Trent: Vampire Hunter¬Sherlock Holmes¬Sherlock Holmes (Eternity)¬Sherlock Holmes of the ‘30s¬Shi/Cyblade: The Battle for Independents¬SHIELD¬Shi: Senryaku¬Shi: The Way of the Warrior¬Shock SuspenStories (EC)¬Shock SuspenStories (RCP)¬Shogun Warriors¬Shottloose¬Showcase¬Showcase ’93¬Showcase ’94¬Showcase ’95¬Showcase ’96¬Shroud, The¬Sideshow Comics¬Siege¬Signal to Noise¬Silencers¬Silverback¬Silverblade¬Silverfawn¬Silverheels¬Silver Sable¬Silver Star¬Silver Star (Jack Kirby’s…)¬Silverstorm¬Silver Surfer/Superman¬Silver Surfer, The (Vol. 1)¬Silver Surfer, The (Vol. 2)¬Silver Surfer, The (Vol. 3)¬Silver Surfer Vs. Dracula¬Silver Surfer/Warlock: Resurrection¬Simpsons Comics¬Simpsons Comics and Stories¬Simpsons Comics (Magazine)¬Sinbad¬Sin City: A Dame to Kill For¬Sin City: That Yellow Bastard¬Sinister House of Secret Love, The¬Sin of the Mummy¬Sister Armageddon¬Sisterhood of Steel¬Sisters of Darkness¬Sisters of Mercy¬Six Degrees¬Six From Sirius¬Six From Sirius 2¬Six Million Dollar Man, The¬Skeleton Warriors¬Skin¬Skin13¬Skin Graft: The Adventures of a Tattooed Man¬Skizz¬Skreemer¬Skrull Kill Krew¬Skull & Bones¬Skull the Slayer¬Sky Gal¬Skynn & Bones¬Slapstick¬Slash Maraud¬Sledge Hammer¬Sleepwalker¬Sleeze Brothers¬Slimer!¬Sláine the Horned God¬Slow Burn¬Sludge¬Small Bodied Ninja High School¬Small Killing, A¬Smoot¬Smurfs¬Snap the Punk Turtle¬Snarf¬Snarl¬Snowman¬SOB: Special Operations Branch¬S.O.F.T. Corps¬Solarman¬Solar, Man of the Atom¬Soldier Comics¬Solitaire¬Solo¬Solo Avengers¬Solomon Kane¬Solution, The¬Somerset Holmes¬Sonic Disruptors¬Sonic the Hedgehog¬Son of Ambush Bug¬Soul¬Southern Squadron, The (Aircel)¬Sovereign Seven¬Soviet Super Soldiers¬Space: 1999¬Space Bananas¬Space Family Robinson¬Space Giants, The¬Spacehawk¬Space Patrol (Adventure)¬Space Usagi (Vol. 2)¬Space Usagi (Vol. 3)¬Space War¬Spandex Tights¬Spanner’s Galaxy¬Sparkling Stars¬Sparkplug¬Sparrow¬Spartan: Warrior Spirit¬Spawn¬Spawn-Batman¬Spawn/WildC.A.T.S¬Special Marvel Edition¬Special War Series¬Spectacular Spider-Man, The¬Spectre, The (1st Series)¬Spectre, The (2nd Series)¬Spectre, The (3rd Series)¬Speedball¬Speed Demon¬Speed Racer (1st Series)¬Speed Racer Featuring Ninja High School¬Spellbound¬Spelljammer¬Spicy Tales¬Spider-Boy¬Spider-Man¬Spider-Man 2099¬Spider-Man and His Amazing Friends¬Spider-Man and X-Factor: Shadowgames¬Spider-Man Classics¬Spider-Man: Friends & Enemies¬Spider-Man/Gen13¬Spider-Man: Hobgoblin Lives¬Spider-Man: Maximum Clonage Omega¬Spider-Man: Power of Terror¬Spider-Man/Punisher: Family Plot¬Spider-Man Saga¬Spider-Man Special Edition¬Spider-Man Team-Up¬Spider-Man: The Arachnis Project¬Spider-Man: The Clone Journal¬Spider-Man: The Final Adventure¬Spider-Man: The Lost Years¬Spider-Man: The Mutant Agenda¬Spider-Man Unlimited¬Spider-Man Vs. Dracula¬Spider-Man: Web of Doom¬Spider, The¬Spider-Woman¬Spidery-Mon: Maximum Carcass¬Spidey Super Stories¬Spine-Tingling Tales (Dr. Spektor Presents…)¬Spiral Zone¬Spirits of Vengeance¬Spirit, The (Harvey)¬Spitfire and the Troubleshooters¬Splatter¬Splitting Image¬Spoof¬Spyke¬Squadron Supreme¬Squalor¬Stainless Steel Armadillo¬Stainless Steel Rat¬Stalker¬Stalkers¬Stanley and His Monster¬Star¬Star Blazers: The Magazine of Space Battleship Yamato¬Star Blazers (Vol. 2)¬Star Blecch: Deep Space Diner¬Star Brand, The¬Starchild¬Stardusters¬Starfire¬Starhead Presents¬Star Hunters¬Starlord¬Starlord Megazine¬Star-Lord, The Special Edition¬Starman (1st Series)¬Starman (2nd Series)¬Starriors¬Star Slammers¬Starslayer¬Starslayer: The Director’s Cut¬Star Spangled War Stories¬Starstream¬Starstruck (Epic)¬Startling Crime Illustrated¬Star Trek (4th Series)¬Star Trek: Deep Space Nine (Malibu)¬Star Trek: Deep Space Nine (Marvel)¬Star Trek: Deep Space Nine: Rules of Diplomacy¬Star Trek: Deep Space Nine, The Maquis¬Star Trek: Deep Space Nine, Ultimate Annual¬Star Trek: First Contact¬Star Trek: The Next Generation¬Star Trek: The Next Generation—Ill Wind¬Star Wars¬Star Wars: A New Hope—The Special Edition¬Star Wars: Droids (Vol. 1)¬Star Wars: Droids (Vol. 2)¬Star Wars (Magazine)¬Star Wars: Return of the Jedi¬Star Wars: River of Chaos¬Star Wars: Splinter of the Mind’s Eye¬Star Wars: Tales From Mos Eisley¬Star Wars: Tales of the Jedi¬Star Wars: Tales of the Jedi—The Golden Age of the Sith¬Star Wars: X-Wing Rogue Squadron¬Static¬Stealth Squad¬Steed and Mrs. Peel¬Steel¬Steelgrip Starkey¬Steel, the Indestructible Man¬Steeltown Rockers¬Steve Canyon Magazine (Milton Caniff’s…)¬Steven¬St. George¬Sting of the Green Hornet¬Storm¬StormWatch¬StormWatch Sourcebook¬Straight Arrow¬Strange Adventures¬Strange Attractors¬Strange Combat Tales¬Strangers, The¬Strange Sports Stories¬Strange Tales (Vol. 1)¬Strange Tales (Vol. 2)¬Strange Tales (Vol. 3)¬Stratosfear¬Strawberry Shortcake¬Stray Bullets¬Stray Toasters¬Street Poet Ray¬Streets¬Street Sharks (Mini-Series)¬Strike!¬Strikeforce: Morituri¬Striker¬Striker: Secret of the Berserker¬Strontium Dog¬Strontium Dog (Mini-Series)¬Stryfe’s Strike File¬Stryke¬St. Swithin’s Day¬Stupid¬Stupid Heroes¬Stygmata¬Sub-Mariner, The (Vol. 2)¬Suicide Squad¬Sun-Runners¬Superboy (1st Series)¬Superboy (2nd Series)¬Superboy (3rd Series)¬Superboy Plus¬Super Cops, The¬Super Friends¬Supergirl (1st Series)¬Supergirl (2nd Series)¬Supergirl (Mini-Series)¬Super Goof (Walt Disney…)¬Superheroes¬Super Heroes Puzzles and Games¬Super-Magician Comics¬Superman (1st Series)¬Superman (2nd Series)¬Superman/Doomsday: Hunter/Prey¬Superman Family, The¬Superman’s Girl Friend Lois Lane¬Superman’s Metropolis¬Superman’s Pal Jimmy Olsen¬Superman: The Legacy of Superman¬Superman: The Man of Steel¬Superman: The Secret Years¬Superman: The Wedding Album¬Superman: Under a Yellow Sun¬Superman vs. Aliens¬Supernatural Thrillers¬SuperPatriot¬Super Powers (1st Series)¬Super Powers (2nd Series)¬Super Soldier¬Super Soldiers¬Super-Team Family¬Super-Villain Classics¬Super-Villain Team-Up¬Supreme: Glory Days¬Supreme (Vol. 2)¬Surge¬Surreal School Stories¬Sushi¬Swamp Thing (1st Series)¬Swamp Thing (2nd Series)¬Sweet XVI¬Sword of Sorcery¬Sword of The Atom¬Sword of Valor¬Swords Of the Swashbucklers¬Syphons
  36. Balloon: This is a list of all the titles in the ComicBase.
  37. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSet wdID,"Properties","TypedTitle_Text:" & objValue & return & "TypedTitle_Selection:0,200" & return & "OK_Disabled:" & (objValue = empty) & return¬--end mouseUp
  38.  
  39. ItemType: TEXT
  40. Rect: 13,32,43,45
  41. TextFont: Geneva
  42. TextSize: 10
  43. Name: TypePrompt
  44. WhiteColor: -8739,-8739,-8739
  45. Text: Title:
  46.  
  47. ItemType: TEXT
  48. Rect: 45,30,345,47
  49. TextFont: Geneva
  50. TextSize: 10
  51. Name: TypedTitle
  52. LockText: FALSE
  53. Text: Spectre, The (1st Series)
  54. KeyFilter: SendTextNoArrows
  55.  
  56. ItemType: PICT
  57. Rect: 10,226,361,241
  58. AutoSize: FALSE
  59. Name: AlphaStrip
  60. Grid: 27,1
  61. Logic: Radio
  62. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global titleList¬global gShowOnlyMyTitles, gMyTitleList¬¬if gShowOnlyMyTitles = true then¬  SetNewList gMyTitleList, objValue, wdID, true¬else¬  SetNewList TitleList, objValue, wdID, true¬end if¬--end mouseUp
  63.  
  64. ItemType: LINE
  65. Rect: 11,226,360,227
  66. BlackColor: 4369,4369,4369
  67.  
  68. ItemType: TEXT
  69. Rect: 13,245,361,261
  70. TextFont: Geneva
  71. TextSize: 10
  72. AutoSize: FALSE
  73. Name: Prompt
  74. WhiteColor: -8739,-8739,-8739
  75.  
  76. ItemType: LBL
  77. Rect: 13,10,45,23
  78. TextFont: Geneva
  79. TextSize: 10
  80. Text: Show:
  81.  
  82. ItemType: RAD
  83. Rect: 50,11,119,24
  84. TextFont: Geneva
  85. TextSize: 10
  86. WhiteColor: -8739,-8739,-8739
  87. Name: All Titles
  88. Hilite: TRUE
  89. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global selectedTitleNum, titleList, gMyTitleList¬global gShowOnlyMyTitles¬¬set cursor to watch¬¬put false into gShowOnlyMyTitles¬put line selectedTitleNum of titleList into theTitle¬put Capitalize(char 1 of (line selectedTitleNum of titleList)) into firstChar¬¬if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬else put 1 into alphaSelectPos¬wsSet wdID,"alphaStrip","Selection",(alphaSelectPos & ",1")¬¬SetNewList TitleList, alphaSelectPos, wdID, false¬wsSet wdID,"0","Properties","Comictitles_Selection:" & (selectedTitleNum - (wsGet(wdID,0,xlistStartPos)) + 1) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return¬¬wsSet wdID,"typedTitle","text", wsGet(wdID,"comicTitles","SelectionText")¬wsSet wdID,"typedTitle","Selection","0,200"¬¬--end mouseUp
  90.  
  91. ItemType: RAD
  92. Rect: 130,11,224,24
  93. TextFont: Geneva
  94. TextSize: 10
  95. WhiteColor: -8739,-8739,-8739
  96. Name: Titles in Stock
  97. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global selectedTitleNum, titleList, gMyTitleList¬global gShowOnlyMyTitles, gCurrentPaneList¬¬set cursor to watch¬put true into gShowOnlyMyTitles¬¬send UpdateMyTitlesList to cd 2¬¬put line selectedTitleNum of titleList into theTitle¬put Capitalize(char 1 of theTitle) into firstChar¬¬if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬else put 1 into alphaSelectPos¬WsSet wdid, "alphaStrip","Selection",(alphaSelectPos & ",1")¬¬SetNewList gMyTitleList, alphaSelectPos, wdID, false¬put find(gCurrentPaneList, theTitle, "Line", "Exact") into foundPos¬if foundPos < 1 and the number of lines of gCurrentPaneList > 0 then put 1 into foundPos¬wsSet wdID,"0","Properties","Comictitles_Selection:" & (foundPos) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return¬¬wsSet wdID,"typedTitle","text", wsGet(wdID,"comicTitles","SelectionText")¬wsSet wdID,"typedTitle","Selection","0,200"¬--end mouseUp